home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / gamesa / module1.bas < prev    next >
Encoding:
BASIC Source File  |  1999-08-01  |  248 b   |  19 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3. Public DelayTime
  4. Public Start
  5.  
  6. Sub Main()
  7. frmSplash.Show
  8. frmSplash.Refresh
  9. DelayTime = 3
  10. Start = Timer
  11. Do While Timer < Start + DelayTime
  12. Loop
  13. Unload frmSplash
  14. frmMain.Show
  15. End Sub
  16.  
  17.  
  18.  
  19.